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om 
JE 15-Sep 4 VAX-11 Bliss-32 V 1 

2 S00 14-Sep 71982 73 $3; 38 DISKSVMSMASTER: cebu. OCR CSOBUECT. B32;1 one: (1) 
; 1 1 MODULE object (IDENT='v04-000 
E é : ADDRESSING mODE (EXTERNAL =GENERAL)) 

; i ; = BEGIN 

: 5 0006 : leeeeeererererereeeereenreneeetereeeerereereeereeeeerereeerenereneeeneeeeteee 
; pd — 
007 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
ee | 0008 1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 a 9008 | is ALL RIGHTS RESERVED. * 
3 'e * 
>) 0011 1 !* ag SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED- AND COPIED * 
; i pore 1 fe Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
coe 0015 1 !# tN ELUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
: «64 0014 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
s 95 0015 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
3 18 84 TRANSFERRED. * 
8 u— au 
5 3 0018 1 !« = INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 0019 1 !# SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $y 8 1 — CORPORATION. : 
; $$ 00 § 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 § 00 1 != SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
4 0026 1 !# a 
ae 0025 1 !* * 
4 26 83 1 E 
an 00 1 

; @& 0028 1 !++ h 

: $0 5 34 ! : Facility: Command Definition Utility, Object File Module 

: 1 0031 1 ! Abstract: This module contains the routines —32 to create a 

.- 83 1! object file from a set of CLDs. Once the CLDs are compiled, 

3 3 0035 1! the resulting tables are transformed into an object records 

3 : Bae ' and placed in a file. 

; » 83 1 ! Environment: Standard CDU environment. 

— a 0037 1! 

ca: oe 0038 1 ! Author: Paul C. Ana pegtepeuies 

; 0039 1 ! Creation: 24 January 

; 40 0040 1! 

3 (41 0041 1 ! Modifications: 

3 4g 81 1! 

s 6 0045 1! v04-001 KPLOO001 Peter Lieberwirth 28-Jun-1984 

23 & 88 1! Record Attributes of object module should be NULL, not 

. 3 045 1! CR, for consistency with all other object modules. 

3 646 88 1! 

53 «(47 0047 1 !-- 

; 48 0048 1 

J 4 0049 1 

; 9 0050 1 Library eUitapgets Lib’; 

;. 2 0051 1 require itabdef' 

3 53 0376 1 require ‘cdureq'; 


] 
| 
| 


= 
om 
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NO 


routine 

cdu$prepare itt file: novalue, 
cdu$write_object_file: novalue, 
write_header_records: novalue, 

write _global_symbol_record: novalue, 
write _psect_record: novalue, 
write_table_ records: novalue, 
write_user_routine_records: novalue, 
write_eom_record: novalue; 


external routine 
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cduScollect_table_blocks, 
cdu$lookup_child, 
cdu$Sreport_rms_error, 
cli$get_value, 
Lib$Sfree_vm, 

Lib$get_vm; 


cdu$facility_string: descriptor, 
cdu$gl_root_node: ref node, 
cdu$gl_table: pointer; 


$Sshr_msgdef(cdu,17,local, 


vuvuv 
ooooo 
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(openout ,severe) 
(writeerr,severe) 


ores Pa 
«SRC JOBJECT.832;1 
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! The following items define the RMS control blocks needed to create and 
! write the object file. 


own 


—_ 


piece _related_rsa: och nents ponres byted, 
bject_related_nam: $nam 


3 8 1 

$ . 

: 3) i 

5 38 1 

; 94 1 

; 8 1 

3 8* 1 

;. 3 1 

; 98 8 1 

; 299 4 1 object_esa: block tnanse~ maxrss,byte], 
_ 8 51 object_rsa: block(nam$c_msxrss,bytel, 

; 101 P $ 1 object_nam: $nam( 

3 106 p 1 esa=object_e 

: 10 p 1 ess=%a Location (object. esa), 
: 1046 p 1 rlf=object ofosoted _nam, 
3 6105 P 0840 1 rsa=object_ 

; Hs p eh 1 rss=%a locSt ion (object. rsa) 
; 10 3 1 

; 108 0845 1 

3 109 0844 1 Gout tertobjecs _spec,nam$c_maxrss), 

: 110 P 0845 1 object_fab: $fab( 

3 #61291 p 88 1 dnm=".OBJ', 

; n P 0847 1 fnazobject.s c+8, 

311 P 0848 1 fns=%a location cobject_ spec)-8, 
3 (116 P 0849 1 fac=pu 

3 115 P 0850 1 eoothe o,nam,ofp>, 

; 116 P 0851 1 tope<sgo.nen.of 

311 p ett 1 org=seq, 

3 #4118 P 08535 1 rfm=var 

Py 119 0854 1 . 

: 120 0855 1 

3 121 p 33 1 object_rab: $rab( 

3 3 P 0857 1 fab=object_fab, 

Vat. P 0858 1 rac=seq, 

: 124 P 0859 1 rop=wbh 

. ts 0860 1 3 
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14-52, -1984 23:45: VAX-11 s-32 V 4 
14-Sep ats 1:58: +39 DISK$V neh TER: —8 she OBJECT .832;1 — (4) 
lee 
i Description: This routine is called to prepare the object file for 
writing of the object records. ALL we do is save enough 
information so that we can create it after the CLDs are 


i 

i 

compiled. 

i Parameters: cld_fab By reference, the FAB used to read the first 
CLD file. 

Returns: Nothing. 

i Notes 

7) a cduSprepare_object_file(cld_fab: pointer) : novalue 

— 

bind 


cld_nam = .cld_fab(fab$l_nam]: blockC,bytel; 


! We don't want to sreste the object file now, because the CLDs may have 

i errors and we'll end up with a null file. However, we do want to save 

i the NAM block and resultant ake ings from the CLDs so we can used them as 
i the related name when we create the object file. 


ch$move(.cid re eet bin}. -cld_nam, object_related_na 
ch$move(.cld_nam(nam$b_rss)],.cld_namCnam$l_fsal, er related. rsa); 


return; 

END; 
-TITLE OBJECT 
IDENT \v04-000\ 
-PSECT SPLITS,NOWRT ,NOEXE ,2 

4A 42 4F 2E€ Q0000 P.AAA: .ASCII \.OBJ\ ; 
-PSECT SOWNS,NOEXE,2 
00000 OBJECT oREL ATED RSA: 


-BLK 55 
OOOFF “BKB ‘ 

02 00100 OBJECT -RELATED_ NAM: 
60 00101 -BYTE : 
0 0010 -BYT : 
0 0010 -BYTE 8 3 
00000000 He . LONG ; 
0 00108 -BYTE 3 
Bie -BYTE 3 
10A BYTE 3 
0 00108 -BYTE 3 
00000000 0010C - LONG 3 


— — 


5 
(4) 


Page 
1 9 


lis 


VAX-11 Bliss-32 —338 
DISKSVMSMASTER:CCDU. SRC JOBJECT.B32; 


384 97:58:28 


d 5 
15-Sep-1 
14-Sep-1 


Pete *e*e*e tate te te Fee Fe SS Fe Fe Fete Fe Fe Fe PSPSPS HS PSPS HS HS HS HS PSHE FS SSCS HS HS HS HS SCS HS SS SETS SESE HEHEHE He 


= 
4 
2 
a 
a 
us 
— 
< 
<= <u 
” Ww 
a wc 
t te 
— — — 
i) YWOw 
cee} wu 
err _ — a “_“rerers 0 —_” 
one N Nn Ww w 8 @monm ™N N 
Lise i uw WwW wo on - Owns — — 
OOOOOOOOODoOOOOCSOOoAOSRSORSO0,SOAOO NE NE NO — 7 O, ,SOSSSSESeeseseseses® 
—3 nw 
peers) 
VWVoQoQVVUWWwWWwWWWHOVUOUUI09O @O@® faa tammy PO gg —— ttt tt 
Zeca ee 2222222 MM MM ORR ee Ore OO EE ZZ ee eee 2 ———— 
per rt a aah tt oJ ee er OO > > > OOOOOCOCO> >>> > > > —4⏑⏑ 
41333 46 IMMMOAM®OMOOO 444444 4tfOOt OOF OOOO OOOO< 333 4 IMMWAOAOWVWOS 4 44s 
eeeeseee eeeeseeeeeeee oe © em es se es we we ew we ee soeeeeeegekeg#gesksgseseeeee eoeeees 
(vu) « z 
é Q 4 
— — 
vu vu —) 
4 2 us 
so oo @ 
oO So o 
ows LOT OO <e MV OWOTDVOVTODO 4&0 & OO KVM TOO <tOvVOTT< Ses VYOoOwowrwDovo sao 
De lh | lh) — agrdign anda eeniyat. A. Apel tenther te tontynt tert eaters 
COOCCOGOOOCOCOCOCOOOOSOOOSOOSoSSoO Sco So BDOOCOOCOCSoOCoOoOOoOOoOSoSS SoOoooooooooo 
SOOOOOOOOOOOOOOOSSOSSSO OO SOO SOOOOCOCSCOOSOOCOSOSOOSOOSOOOOOOOOOSO 
Soo —2222322222223 42 — 
—————— —2 - OSoooooocoo 
SOOoOoooooooooooooooooo So OL OCOoocoL.CSSSoSoSooooooooooooooosoo 
Coooooo Cooooooo f=] Cooooosco Sooooooeo 
Coooooo Sooooocoo i=) Cooooooo Sooooooo 
o oo Sooooooeo oS oo oo Cooooooo 
o oo 92 2 O O oS oo oo Sooooooo 
So oo SSsssss So oo Soo Sooooooo 
o oo oO oO oo oo Sooooooo 


Hosen-1964 95:45:39 


— 
vO4=600 


Bliss-32 V4.0-74 


VAK=11 Page 6 
— SRCTOBJECT.B32;1° 9% cas 


a oo 
+ + 
vo Yv 
uw uo 
a =a 
” ™N zn 
4 oa 11 
— — — — 
— oo vv 
us — wu 
288 8 oo. a om 
w 88 o w ooae o o ro) 
— See ae OOOIOIOOICOIOOIOIOIODOC. - OGGCOCGOSOSOIOOIOCOOSOOSO 
— —A— 
i muud 
SweOD WWOVVOKS OQWWOWWWWOUCTEEWWOVUKWWHOVUKWWYUO WWOUUVRAQVAWWAOnVUY 
bed tot) Sl tod 2 o 2 2 4 4 oe 4 ——— St 4-2 4 ee ee 2 ee ee 
we eae o> >OO0O00CO>>oO>>> > O0aaGa>>000>>000>>0 + > > OOOCCCO0O00O>> 0000 
uw sag 888 188 38'S 46883 1908130819003 3-133 130833 
I — ———⸗———— eseeeeeeeeeeeeeee 
w” ae a 
§ a a 
— — — 
Vv J ve 
Aad us [ee] 
bes, 2 = 
@ @ a 
o o So 
VB VLYYY YVUVOO OCC OWWWWWWwWwie eww ⏑ ———— —— — wT 
SV WWI FFP SF SS SS SS STF FFT TION ——⏑⏑ 1— 
S SOoOSSS BSOSOSSOSSOOSOSSOSSSOSOSSOSOSSOSSSSOSOSSOSSOSSSO OOOOOOOCOOOOOOOO 
Oo SOOOO OOOSOSOOCOOCOCOOOSOSOOSSOSOSSSSSSOSOSOSOSSSOSO OOOOOCOOOOOOSOOOO 
= eee Be 
u OO Mm OOOSOSCSS—COCCOVOSOSOSSoe sy OoOoooOSoooOoSoo—- ) LT OOOOOOOOOOOOSoO 
u OO Oo NOTOOOCOOooooccsoooShu cooooooscooocoscoo 
So So Soooooo So Cooooo ooo ooo So 
oa f=] oooooo oO ooooo ooo ooo oS 
oo oooo oO ooooo So oo So 
oo oooo So ooococo So oo [J 
Oo —222 So ooooo So oo So 
Oo NOOO o OOOOI o oo o 


5 
—8 — — 


1 
0000000 00544 LONG : 
taint 48 .LONG : 
4¢ BYTE 3 
40 “BYTE : 
0 54E BYTE 3 
0 54F -BYTE : 
09009000 320 ONRESS OBJECT FAB ; 
0000000 $228 ONG 0 : 
.EXTRN CDUSCOLLECT_TABLE_BLOCKS 
-EXTRN CDUSLOOKUP_CHILD 
*EXTRN EDUSREPORT= RMS -FRROR 
XTRN CLIS$GET_VACUE * REE_VM 
.EXTRN LIBSGET~ Me coy FACILITY. STRING 
~EXTRN CDU$GL_ROO 
*EXTRN cbuset Roof — 
.PSECT $CODE$,NOWRT,2 | 
007C 00000 e ENTRY CDUSPREPARE OBJECT FILE. Save R2,R3,R4,R5,- ; 0875. 
50 04 aC 00 00002 MOVL i FAB, RO : 0879 
56 28 AO DO 00006 MOVL 4 (RO), R6 : 
50 01 A6 9A OOOOA MoviBL 1 RO : 0887 | 
0000" CF 66 50 28 0000E MOVC —8 OBJECT_RELATED_NAM : | 
50 02 Ab 9A 00014 MOVZBL ; 0888 | 
0000" CF 04 86 50 28 00018 MOVCS RO, @4(R6), OBJECT_RELATED_RSA : | 
04 0001F RET + 0892 


: Routine Size: 32 bytes, Routine Base: S$CODE$ + 0000 
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12788-1382 97:93:38 DISKSVMEHASTERSLYDU SRCTOBJECT 832; 1 ° (5) 
lee 
! Description: This routine is called after all the CLD files have been 
mpiled, It is responsible for creating and writing the 
object file containing all of the generated table blocks, 
along with related descriptive information. 


Parameters: None. 
Returns: Nothing. 


Notes: 


i 
GLOBAL ROUTINE cdu$write_object_file : novalue 
= BEGIN 

local 


status: long, 
final_area: pointer; 


! Begin by creating the object file. Get any value specified on the /OBJECT 
! qualifier to use as the spec for the object file. 
cli$get_value(dtext("OBJECT') ,object_spec); 

! Create and connect to the object file. Any errors are fatal. 


Ss 
NOUS WN (OO OONOUSWN OOD 


status = $create(fab=object_fab); 

if not .status then ; 
egubrepors ras error (msa(cdu$_openout) object_fab); 

status = $connect(rab=object_rab); 

if not .status then > 
cdu$Sreport_rms_error(msg(cdu$_openout) ,object_rab); 


UEWN— 


! Write the header records. 
write_header_records(); 

! Write the global symbol definition record. 
write_global_symbol_record(); 


SAR ANS 


! Allocate a large area to contain the final CLI table. Collect all of the 
! table blocks into that area. 


status = Lib$get_vm(cdu$gl_table[vec_l_table_size], final_area); 
check(.status, .Status); 
cduScollect_table_blocks(.final_area); 


! Write the PSECT definition record. 
write_psect_record(); 
! Write the table blocks themselves. 
write_table_records(); 


sss 
on 
000000 ö————————————————⏑⏑ 
o SSSSSSSSSSSSSOOOOGOOOOHDOOOHOOOOOOOD 
= LAA AIAN AI NIA NIPINIPIPD 
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; 217 950 

; 8 0381 ! Write the records needed to define and store user routine addresses. 
3 Y 0388 write_user_routine_records(); 

; § 0988 ! Write the end-of-module record. 

; 4 0989 write_eom_record(); 

; 5 0958 

3 6 0959 return; 

; 227 0960 

; 228 0961 1 END; 


«PSECT S$PLITS,NOWRT,NOEXE,2 


00 00 54 43 45 4A 42 4F 00004 P.AAC: ASCII \OBJECT\<0><0> : 
010E0006 0000C P.AAB: <LONG 17694726 : 
00000000' 00016 “ADDRESS P. AAC : 
eEXTRN SYSS$CREATE, SYSS$CONNECT 
.PSECT $CODE$,NOWRT,2 
001C 00000 eENTRY CDUSWRITE OBJECT Rone’ air"? R2,R3,R4 3; 0906. 
54 000000006 00 9€ 00002 MOVAB  CDUSREPORT_ RMS ERROR ; | 
53 0000' CF 9€E 00009 NOVA OBJECT_FAB; R3 ; 
5é 04 C2 0000E SUBL2 #4, SP ; 
FEF8 C3 9F 00011 PUSHAB OBJECT_SPEC ; 0917) 
0000' CF 9F 84 PUSHAB a5 AB 3 
000000006 00 0¢ FB 00019 CALLS » CLISGET_VALUE ; 
53 DD 00020 PUSHL : 0921 
000000006 00 01 FB 00022 CALLS #1, SYSSCREATE ; 
52 50 DO 00029 MOVL RO. STAT us : 
08 3 E8 0002¢ BLBS = STAT 1s > : 092 
53 DD 0002F PUSHL as : 092 
001110A4 8 DD 00031 PUSHL 118372 ; 
64 3 FB 00037 CALLS 3! FEUSREPORT _RMS_ERROR Z 
50 A3 9F O003A 1S: PUSHAB 0B) + 0924 
000000006 00 gi FB 9003p CALLS SYSSCONNECT ; 
52 0 pO 0004 MOVL 4 STATUS ; 
0c 5 8 00047 BLBS = STATUS, 2$ + 0925 
50 AS OF OO04A PUSHAB OBJ sect RAB + 0926 
001110A4 BF DD 04D PUSHL #1118372 ; 
64 3 FB 0005 CALLS a6: CDUSREPORT_RMS —* 
0000v CF FB 00056 2$: CALLS WRITE_HEADER_RECORDS + 0930 
0000v CF 0 FB 0058 CALLS #0: WRITE" GLOBAL “SYMBOL _RECORD > 0934 
DD 0006 PUSH : 0939 | 
7E 000000006 00 10 C1 00062 ADDL 216. . §bys8t- ~TABLE, -(SP) ; 
000000006 00 02 F 006A CALLS 64 
6 5 D 0071 MOVL 4 : 
0 52 € 0074 BLBS > 0940 
52 DD 00077 PUSHL at tt : 
000000006 00 01 FB 00079 CALLS at 1BSSIGNAL : 
6E DD 00080 38: PUSHL —* > 0941 
000000006 00 01 FB 00082 CALLS @ EBUSEOLLECT _TABLE_BLOCKS : 


— — 
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lee 

: Description: This routine is responsible for writing the header records 
in the object file. We write the mandatory module record, 

along with a Language name record. 


Parameters: None. 
Returns: Nothing. 


ROUTINE write_header_records : novalue 
= BEGIN 


local 
status: tong 
hdr: block(256,byteJ, 
variable_ptr: pointer, 
child: ref node 
work_dsc: descriptor; 


! Set up the fixed portion of a module header record. 


hdr(mhd$w_recsizJ 


: Now we want to include the module name. If there is a MODULE statement 
: in the CLD, use it. Otherwise use the name of the object file. While 
! we're at it, set up a pointer to the next available byte in the header. 


child = cdu$lookup_ child(.cdu$gl_root_node,node_k_module) ; 
if .child neqa 0 then ( 
ch$move(1+.child(node_b_text_length) 
— var iable_ptr = hdr&mhd$t_name] + .child(node_b_fext_length 
else 
hdr(mhd$b_naming) = .object_nam[nam$b_name]; 
ch$move(.object nam(nam & ning) .-0b rect nam{nam$\_name}, hdr{mhd$t_name)); 
variable_ptr = Rdr(mhd$t_name] + .object_nam(nam$6_name); 


= 
hdrLmhd$b hdrtye3 = mhd$c_mhd 
h lj = 

= 


v3 


: Now we want to include the module ident string. If there is an IDENT 
! statement, then use it. Otherwise use a string of ‘0-0"'. 


child = cdu$Slookup_child(.cdu$gl_root_node,node_k_ident); 
if .child nega 0 th 


shes Pa 
«SRC JOBJECT.B32;1 


fii Ldtnode pq tert, length, hdr(mhd$b_naming]); 


en 
ch$move(1+.child{node b_text_Length) chi ldCnoge btext length). -variable_ptr); 
* 


id{node_b_fext_length 


ch$move(4,ctext("'0-0"), .variable_ptr); 
variable ptr = variable ptr + 4; 


variable_ptr = .variablé_ptr'+ 1 
) else 


); 


! Finally, we want to include the current date and time. 


( 


1 
6 


1 
) 


DOVE ARANSSSOVE APA OOS ERR OOo 


WA 


—= 
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build gdeser iptor (work. dsc, Lig 5 ate ptr); 
status = Sasctim(timbuf=work dsc) 
check(.status, .status); 

variable _ptr = .variable ptr + 17; 


! Write the module header into the object file. Any error is fatal. 

object_rab{rab$l_rbf] = hdr; 

object_rablrab$w_rsz] = -variable_ ptr - hdr; 

status = Sput(rab=object_rab); 

if not .status then 
cduSreport_rms_error(msg(cduS_writeerr) ,object_rab); 

! Set up the fixed portion of a Language name record. 


hdrlobj$b_rectyp] = obj$c_hdr; 
hdr(mhd$b_hdrtyp) = mhd$c_ “Lnm; 


! Move in our Language name. 


ch$move(.cduSfacility_stringllen],.cdu$facility_string(ptrJ), hdr + 2); 


! Write the Language name record in the object file. 


object_rabCrab$w_rsz) = 2 + -cduSfacility_ stringllen]; 
status = Sput (rab=object_ rab); 
f not .status then 
cdu$Sreport_rms_error(msg(cdu$S_writeerr) ,object_rab); 


return; 


-1984 23:45: VAX-11 Bliss-32 Vv 
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30 2D 30 03 00014 P.AAD: 


-PSECT 
«ASCII 


»PSECT 


OFFC 00000 WRITE — 


SPLITS,NOWRT ,NOEXE ,2 
<3>\0-0\ 

SYSSASCTIM, SYSS$PUT 
SCODES,,NOWRT ,2 


seve R2,R3,R4,R5,.R6,R7,RB,RI,RIO,R11 


5B 000000006 00 X 000 MOVAB YSSPUT, R 
5A 00000000G 00 X 000 MOVAB CDUSL OOKUP Ue CHILD. R10 
3 0000° CF 9E Baie MOVAB 
E FEF8 CE 9€ 0001 MOVAB OBE tSPY MB ep 
9 AE Be OO1A CLRW WOR 
A AE 94 00010 CLRB aa. 
OB AE 0800 F B0 8 0 MOVW Iu. HDR+3 
DD 00 : PUSHL @# 
000000006 DD 000 PUSHL CDUSGL_ROOT_NODE 
ga FB 0 — CALLS ase $0051 OORUP CHILD 
7 D 0 MOVL 


2 
) 


0974 


0987 


0989 


990 
0996 


(NESS 


OD AE 10 
0D 
OE AE FE94 
68 10 
04 
000000006 
000000006 
28 
22. 49 
000000006 
08 
OA AE 
22. 49 
000000006 


worm vwvw>P wi 
ono NP aoomnoe aaoon oO 


roo VirumMm Wo 
moo 


@Cowowo ono 


WVi>ru 
SSS Sssss SSS 


00 


‘ 
rf 
60 
56 


OF 


00 


19 
at 
OE A 
% 
8 
FE83 8 
6 
56 
OE a 
000000006 o3 
14 
10 47 
01 46 
50 
01 A648 
05 
0000" CF 
11 
58 
7t 
08 AE 
7E 
04 
50 
57 
57 
01 
11 
08 AE 
08 AE 
50 
59 
01 
50 
57 
4 
001110D4 : 
0100 F 
00000006 8 
00000006 
3 
001110D4 F 
02 


'GOMG "SF OOO NOMS "9 ONO T SO -" ON 00-9 MIT ONO0O-2 OONvvr o— 


Oo*OOMS "9 FPwOWD"'o 
FDO 9 BOWS “WON O09 9 BOW IWMMNOWT WOOD & *"VOOO—MOM FS WODVTOMWOF “OF MOO rw 


OOOOOCOOOSOOSOOS sOOOSOSOOOOOSOOOSOSOO OOOO OOOOOOOOOOOOOOOOOOOOOOOO 


6 
18-56 -1984 4 
12-08-1382 7 5 
EQL 
MOVZBL 
A INCL 
mMovc3 
004 OVAB 
Be rey y 
4A ADDL 
04D RB 
OO4F 1$: MOVZBL 
0054 Ove 
0058 movCc3 
8 MOVAB 
64 2%: PUSHL 
0066 PUSHL 
006C CALLS 
4 MOVL 
0072 BEQL 
0074 MOVZBL 
0078 MOV 
007¢ MOVC 
0081 MOVAB 
0086 BRB 
0088 3$: MOVL 
008D 4$: MOVL 
0090 MOVL 
0094 CLRQ 
0096 PUSHAB 
0099 CLRL 
00 CALLS 
OOA MOVL 
OOA BLBS 
9048 PUSHL 
OOAA CALL 
0081 5$: ADDL 
00B4 MOV 
0089 MOV 
008 SUBW 
00C PUSHL 
00C4 CALLS 
00C7 MOVL 
OOCA BLBS 
00CD PUSHL 
OOCF PUSHL 
NOnS CALLS 
OODC 6$: VW 
OOE MOVZWL 
OQOE VL 
Sore a 
OOF ADDW 
OOFA PUSHL 
OOFC CALLS 
OOF F VL 
p19 LBS 
3 PUSHL 
107 PUSHL 
010D CALLS 
0114 7$: RET 


oe 
pent meme nr beet Fhe we od T41 pers row 


9 Bliss-32 V4 


D 
(CHILD), RO 
,JOCCHILD), HORSS 
(CHILD), VARIABLE_PTR 
, VAR _PTR 


IABLE_P 
JECT_NAM+59, R6 
R+5 


@OBJECT_NAM+76, HDR+6 
R+6 Rad. VARIABLE_PTR 


USGL_ROOT_NODE 
CDOSLOORUP_CHILD 
CHILD 


ROSVOCOO 
Pa 


) 
VeCCHILD) (VARIABLE _PTR) 
6)CVARIABLE_PTR], VARTABLE_PTR 


P.AAD, (VARIABLE_PTR)+ 
#17, WORK DS 

VARIABLE_PTR, WORK_DSC+4 

WORK DSC 

#4, SYSSASCTIM 

RO, STATUS 

STATUS, 5$ 

STATUS 

#1, LIBSSIGNAL 

#17, VARIABLE PTR 

HDR. OBJECT _RAB+40 

RO, VARIABLE PTR, OBJECT_RAB+34 
#1, SYSS$PUT 

RO, STATUS 

STATUS, 6$ 


— APAHAOAPRKHONMINIOOO 
° 


#1118420 
#6, CDUSREPORT_RMS_ERROR 


CDUSFACILITY_STRING, R6 
CDUSFACILITY“STRING*4, RO 


» (RO), HDR+ 
é > R6, OBJECT_RAB+34 
#1, SYS$PUT 
RO STATUS 
STATUS, 7$ 


#1118420 
#2, CDUSREPORT_RMS_ERROR 


X-11 rey Pa 
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Bi 


: Routine Size: 


277 bytes, 


1Soseoctgee 38:45:59 


Routine Base: SCODES + OOBE 


VAX= 
ISK 


“11 
K$V 


secret 


Bu SRC OBJECT .832; :1 


Page 
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COOCCOCSoO 
PPPS 
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WN OOONOUS UT 
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kk dt — 


2222222 
See SF 


DONO O o WN“ OVOOnou 


OOOCOCOCOCOCOCOOCOOCOCCCoOooOoOO 
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2222222 
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6 
1B-seo-1986 24:45:30 vANeTt BLs8-82 4.0 


lee 

! Description: This routine is responsible for writing a global symbol 

} directory record to define the giocet symbol naming the 
table. This name is used in CLI calls to reference 
this table after it is Linked with an image. 


i 

i 

i 

Parameters: None. 
; Returns: Nothing. 
i Notes: 


Roy) i write_global_symbol_record : novalue 


= BEG] 


local 
status: tong 
gsd: block(256,byteJ, 
child: ref node; 


bind 
gsd_sym = gsd + 3: block(,bytel; 


! Set up the fixed portion of the record. 


gsdCobj$b_rectyp] = gbj$c_gsd; 
gsd_sym(s B * $c_sym; 
= 0; 
“f = ogySa_det + gsy$m_rel; 


gsd_sym(sdf$!-value) = 0;° 


' Now we want the module name as the symbol. If there is a MODULE statement 
' in the CLD, use it. Otherwise use the name of the object file. 


child = cduSlookup_child(.cdu$gl_root_node,node_k_module) ; 
if .child neqa 0 then 
ch$move(1+.child([node_b_text_length],child{[node_b_text_length], 
— gsd_sym(sdf$b_namingJ) 
else 
gsd_sym{sdf$b_naming) = .object_nam[nam$b_name); 
ch$move(.object_namUnam$b_name)..object_nam[nam$l_name), 
gsd_symEsdf$t_namé]); 


! Write the record into the object file. Any error is fatal. 


object_rab(Crab$l_rbf 
object_rablrab$w_rsz 
status = $put(raB=ob 
if not .status then . 

cdu$Sreport_rms_error(msg(cdu$S_writeerr) ,object_rab); 


= 95d: 
= 1 + 9 + 1+. gsd_sym{sdf$b_naming); 
ect_rab); 


return; 


R 
» SRC JOBJECT.B832;1 


— — — — 


; Routine Size: 


1109 1 END; 


03 


000000006 


000000006 


000000006 


124 bytes, 


Routine Base: 


6 
13oSep-19R6 28:45:50 vARedt atts: 


32_V 
R 


003C 00000 wRITE_GLOBAL SYMBOL RECORD: 
-WORB Save R2,R3,R4,R5 
SE FFOO CE 9 00002 HOVAB =336 (SP) ép 
6E 0101 —s&F : 0 MOVW #257, 6Sb 
02 AE 94 0000C CLRB = GSD_Sym+1 
AE OA 80 900F MOVW #107 GSD_SYM+2 
5 AE 94 CLRB 55 SYM+% 
6 AE D4 O16 CLRL GSD_SYM+5 
DD 1 PUSHL a 
000000006 0D O18 PUSHL  CDUSGL_ROOT_NODE 
00 f 0 CALLS #2, CDOSLOORUP_CHILD 
D5 00028 TSTL CHILD 
0 13 0002A BEQL 13 
51 10 Ad 9A 0002¢ MOVZBL 16(CHILD), R1 
51 ¢ 0030 INCL 1 
AO 51 00 MOVC3 R1, 16(CHILD), GSD_SYM+9 
12 11 000 BRB 2$ 
A 0000" CF 90 O003A 18: MOVB  OBJECT_NAM+59, GSD_SYM+9 
5 0000° cr 9A 0040 MOVZBL OBJECT ~NAM+59. RO 
DF 0 ge 004 MOVC RO, @OBJECT_NAM+76, GSD_SYM+10 
CF 6& 9E 0004C 2S: MOV GSD, OBJECT RAB+40 
CF OA AE 98 00051 MOVZBW GSD.SYM+9, OBJECT RAB+34 
CF OB AO 90047 ADDW2 #115 OBJECT_RAB+3% 
0000" CF 9F 0005C¢ PUSHAB OBJECT _R 
00 9} 4 00060 CALLS #1, SYSS$PUT 
1 0 E 0006 LBS STATUS, 3$ 
0000" CF SF O006A PUSHAB OBJECT RAB 
001110D4 8F DD 0006E PUSHL #1118420 
0 02 FB 00074 CALLS #2, CDUSREPORT_RMS_ERROR 
04 00078 3$ RET 


SCODES 0103 


—853*8 
:CCDU.SRCJOBJECT.B32;1 


ree 
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JECT 14.8 1984 23:45: VAX-11 Bliss-32 V4.0-74 Page 17 
$02 500 12-8087} 98e $9 :$3:38 DLEKSVMGMASTERSCCDU. SRCTOBJECT.B32:1 . (BS 
; 1339 1 lee 

3 1111 1°! Description: This routine is responsible for writing the psect definition 
3 Wig ! } record, which defines the psect in which all the blocks reside. 
; 1114 1! Parameters: None. 

3 1115 1! 

; 1118 1 ! Returns: Nothing. 

3 1117 1! 

: Hg | j.teres 

3 1120 1. 

3 11 } 1 ROUTINE write_psect_record : novalue 

3 1 § = BEGIN 

; 1124 2 local 

: 1125 status: tong 

3 1% $ gsd: block §6.bytel; 

; 1128 2 bind 

3 i , gsd_psc = gsd + 1: block(,byte); 

; 1131 

3 11 § ! Set up the fixed portion of the psect record. We get the psect size out 

3 8 4 ! of the primary vector block. 

; 1135 2 gsdlobj$b_rectyp] = gbj$c_gsd: 

3 406 11 § gsd_psc(gps$b_gsdtyp) = gsd$c_psc; 

; 407 11 gsd_psc(gps$b_align) = 2; 

; 408 1138 gsd_psc(gps$w_flags] = apssn_pic + gps$m_rel + gps$m_rd; 

3 ret iti gsd_psc(gps$l_alloc] = .cdu$gl_tablelvec_l_table_sizel; 

: 411 1141 ! Now we want the psect name. 

: 218 1143 § begi 

; egin 

3 6414 1144 bind 

3 a1? 1162 name = ctext("CLISTABLES'): vector(,byte); 

: 3 ——— gsd_psc(gps$b_naming)); 

: end; 

: 419 1149 

3 $30 1139 ! Write the psect definition record into the object file. Errors are fatal. 
3; 6 ‘ 1138 object rabfrabst_rbt = 9sd: 

; 4 115 object_rablrab$w_rsz] = 1 + 8 + 1+.gsd_pscl(gps$b_naming); 

3 424 1154 status = $put(rab=object_rab); 

3 425 1155 if not .status then ' 

3 : $ 1138 cdu$Sreport_rms_error(msg(cdu$_writeerr) ,object_rab); 

: 3 1138 return; 

3 8 1159 

3; 4 1160 END; 


-PSECT SPLITS,NOWRT .NOEXE ,2 
53 45 4C 42 41 54 26 49 4C 43 OA 00018 P.AAE: ASCII <1O>\CLISTABLES\ : 


3; Routine Size: 


08 


05 


09 AE 0000" 
06 
000000006 


000000006 


91 bytes, 


Routine Base: 


6 0088 
E FFO 
6E 
AE 
A 8 
50 000000 
A 1 
5 000 
CF 
A6 
66 09 
66 
DE 
00 
10 
DE 
00111004 
00 


G 


— 28:45:89 MTT BLieEe SZ Mh ORT 


NAME = 


007C 00000 WRITE — 14 


P.AAE 


«PSECT S$CODES,NOWRT,2 


wo Save R2,R3,R4,R5,R6 
X 0000 MOV ECT RAB+34. Rb 
9E 000: MOVAB = —48 SP 
; SOF HOVE ; - esp PSC+1 
— 
or HOV IBM 4447 GSD _PSC+2 

D 91 MOVL buséL TABLE, RO 
p 1F MOVE 6(RO) GSD PSC s4 

A 0024 mee hrs 0° 
28 00 8 MOVC3 NAME gsp xpstes 

E 000 MOVAB 686, OBJ “ 

Hi 00 MOVZBW Gsb -PS¢s — zRAB+34 
AO OO03A ADDW 
9F 0003D PUSHAB dayecye 

4 —88 CALLS 9 —3 
004 BLBS § STATUS, 1$ 

F OO04A PUSHAB ECT 
DD 0004 PUSHL #1118420 

FB 0005 CALLS #2, CDUSREPORT_RMS_ERROR 
04 0005A 1$ RET 


SCODES + O24F 


Page 


De Se Se Be Se Se Be Be Be Be Se Se Se Se Be Se Se Ge Se Ge Se 


18 
(8) 
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6 
JECT ese “1984 23:45: VAX-11 Bliss-32_ V4.0-74 Pa 19 
v04=000 14-Sep-19 4 7:38:38 DISKSVMSMASTER:CCOU.SRCJOBJECT.B32;1 — (9) 


; 4 1161 1 S44 

3 6 ¢ 1180 1 ! Description: This routine is called to write a sequence of TIR records 
; 4 1165 1! containing the table blocks. The blocks are packed 

: ? 5 118e : } together, resulting in a minimum number of records. 

; 6 1196 Parameters: None. 

; 439 1168 | i Returns: Nothing. 

3 441 1190 1 | Notes: We assume the table blocks have been collected into a final, 
: 8* 4 = contiguous area. 

> 464 Wes 1 

3 8 a 1 ROUT Ie write_table_records : novalue 

3 = 

; 44 1108 

; 448 117 local 

; 449 1178 status: long, 

; 450 1179 tir: blocklobj$c_maxrecsiz,bytel, 

3; 451 1180 table_offset: long, 

; $28 1181 command: pointer 

; 433 118¢ command_tength: long; 

; 455 1184 

: $28 1133 ! Initialize the type byte of the TIR record. 

; $28 1187 tirlobj$b_rectyp] = obj$c_tir; 

: 460 1189 ! Write out the following sequence of TIR commands, which will set the 
: $33 —39 location counter to the beginning of the psect. 

3 46 1198 i stack address of beginning of psect 

3 8 1137 H set location counter 

; 466 1195 i any error is fatal. 

; $38 4b 4 sie 1,0,8,0) = firSc_sta_pb; 

Py r oO e — * 

: os 1199 § tirt8:0-8:03 = 0: 

: 47 1200 2 tirl4.0. = tir$c_ctl_setrb; 

> 47 1201 2 object_rablCrab$l_rbf] = Fir; 

3; 67 1 8 object_rablrab$w rsz] = 1 + 3 + 1; 

3 474 120 status = $put(rab=object_rab); 

3; «475 1204 if not .status then 

: ors 38 cdu$Sreport_rms_error(msg(cdu$_writeerr) ,object_rab); 

; 478 1509 ! Sit in a loop, going through once for each TIR record, The table offset 
3 rth 1608 ! pointer will advance along the CLI table as we write it out. 

; 481 10 table_oftset = 0; 

3 0 

*3 1 \¢ : ; 

3 «64484 121 ! Initialize the command pointer, which will advance along the TIR 
: $3? ' 1 ! record, to point past the type byte. 

; cB? ' 6 command = tir + 1; 


6 
T bese -1984 23:45: VAX-11 Bliss-32 V4.0-74 Pa 0 
902-500 1a-8ep-19 4 49:3 535 DISKSVMSMASTER: CCDU. SRC JOBJECT.832;1 ” (35 
! Each TIR record contains a sequence of Store Immediate commands. 
! Loop once for each command. 


incru i from 1 to obj$c_maxrecsiz / 129 do ( 


! The Store Immediate command is the negative of the length 
! of the bytes being stored. That's 128 bytes unless we are 
! at the end of the table. 


command Length = minu{128, .cdu$gl_table[vec_l_table_size]-.table_offset); 
commandl0,0,8,1] = =.command_length; 


! Copy the table bytes following the Store Immediate 
! command. 


ch$move(.command_length,.cdu$gl_table+.table_offset, command(1,0,0,0]); 
! Advance the table offset and the command pointer. 


table_offset = .table_ offset + .command_length; 
command = .command + T+.command_length; 


WWW nononononononunonn = 


DOONAN O ODNAUES WIN —— A 
——— 


SSRVOs UI“ SOMNO NE WVMODSR UPAR Ue She oe 


1 
1 : ! If we've finished copying the table, then get out of this 
: Se ! loop. 
} $¢ * if .table_offset eqlu .cdu$gl_table[vec_l_table_size] then exitloop; 
1 24 — 
! Write the TIR record. Any error is fatal. 
1 24 object_rabCrab$w_rsz] = .command - tir; 
24 status = Sput(rab=object_rab); 
25 if not .status then 
§ $2 cdu$Sreport_rms_error(msg(cdu$_writeerr) ,object_rab); 
§ $2 ! Loop until we have written the entire table. 
§ $2 ) until .table_offset eqlu .cdu$gl_tablelvec_l_table_size]; 
2 25 return; 
25 
25 END; 
OFFC 00000 WRITE_TABLE RECORDS: 
-WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1174 
5E F7FC 86CE xX 0002 OVAB =2052(SP), SP ; 
046 AE 0402 8F 3C 000 MOVZWL #1026, TIR > 1187. 
08 AE 50 BF 90 0000 OVB » TIR+ > 1200. 
0000° CF 04 aE 9 0012 MOVAB Yur. OBJECT _RAB+40 ; 1201 
0000" CF 0 8 001 OVW #5, OBJECT_RAB+34 : 120 
0000" CF 9F 00010 PUSHAB OBJECT_RAB : 120 
000000006 00 9 f b858 CALLS 1, SYS$PUT ; 
6E 0 00 00028 MOVL RO, STATUS : 


mM 6 
1 15-Sep-1984 23:45: VAX=11 Bliss-32 V4.0-74 Page 21 
12789b-1982 97:88:35 — DESKSUMEMASTERSECDU SRC ToBVECT.B32;1"°%" (9) 
1 6E £8 00 K S$ STATUS, 1$ : 1204 
9900" F 9F 000 PUSHAB OBJECT RAB ; 1205 
00111004 8F DD 000 PUSHL #1118420 : | 
000000006 00 g rE 00 CALLS #2, CDUSREPORT_RMS_ERROR : | 
D4 OO03F 18: CLAL TABLE OFFSET : 1210 
7 000000006 00 BO 0041 OvL cu gC_TAB E, R7 : 1227, 
A 10 A? 9€ 0048 MOVAB 16(R7); R1 : | 
6 05 AE 9E 0004C 28 MOVAB —TIR+1, COMMAND : 1216 
58 o1 DO 0005 MOVL. #1, I : 1221. 
0 6A 9 C3 00053 3$ SUBL3 TABLE OFFSET. (R10), RO ; 1227) 
00000080 8F 50 D1 0005 CMPL = RO, «AT 28 F | 
04 18 O05 BLEGU 4$ 3 | 
5 80 8F 9A 0006 MOVZBL #128, RO ; | 
5 50 DO 00064 4$: MOVL RO, COMMAND LENGTH ; | 
66 58 3 00067 . MNEG COMMAND _LENGTH, (COMMAND) i 1228) 
01 A6 6947 58 0006A MOVCS COMMAND LENGTH, (TABLE OFFSET)CR7I, ~ ; 1233, 
59 58 CO 00070 ADDL2 COMMAND LENGTH, TABLE OFFSET : 1237 
56 01 A846 9E 00073 MOVAB 1 (COMMAND LENGTH) [COMMAND] COMMAND > 1238 
6A 59 01 00078 CMPL §TABLE_OFFSET, (R10) : 1243) 
07 13 00078 BEQL «6s 5$ ; 
5B 06 0007D INCL 1 : 1221) 
OF 5B 01 0007F CHL #15 : | 
CF 1B 00082 BLEQU = 3$ ; | 
50 4 AE 9 00084 5$: MOVAB TAR, RO : 1248) 
0000" CF 56 50 A 00088 SUBW3 RO, COMMAND, OBJECT_RAB+34 ; 
0000' CF 9F O00BE PUSHAB OBJECT_RAB : 1249) 
000000006 00 O1 FB 00092 CALLS #1, SYSS$PUT ; 
6E 50 D0 0009 MOVL RO, STATUS ; 
11 6 £8 0009C BLBS STATUS, 6$ : 125 
0000' CF SF 0009F PUSHAB OBJECT.RAB > 125 
00111004 8F DD 000A3 PUSHL #1118420 ; 
000000006 00 02 FB 000A9 CALLS #2, CDUSREPORT_RMS_ERROR ; 
57 000000006 00 DO 00080 6$ MOVE CDUSGL_TABLE, R7 : 1255 
5A 10 A? 9€ 00087 MOVAB 16(R7); R1 : 
59 01 00088 CMPL TABLE_OFFSET, (R10) : 
BC 12 OOOBE BNEG = 2$ ; 
04 000C0 RET : 1259 


: Routine Size: 193 bytes, Routine Base: S$CODE$ + O2AA 
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a et PEAT Pe SOE 
144 

! Description: This routine is called to write out the records needed to 
declare and store the references to user routines which 
pec i tice by ROUTINE 


ved by the Linker. 


MEW 


These routines are s 
clauses in the CLD and must be reso 


The task is accomplished by traversing all of the table 
blocks looking for command blocks which specify user 


handle verbs. 


gsd_sym = obj + 1: blockl. byte); 


Morn 
co 


When a command 
lock with a user routine handler is encoutered, then we have to do some 


Looe through each of the table blocks, one at at a time. 
work. 
b 
i 


lock = .cdu$gl_tabi 


e 
file .a_block 


du$gl_table + .cdu$Sgl_table[vec_l_table_size] do ( 


— IV LUDVIVSDVSIUSUSUSVSUSIV SUSU ISS IASIOST SU SISIOSIOSIOSIS 


6 
6 
6 
6 
6 
6 
8 6 
39 6 
40 6 routines. 
41 g 
¢g f Parameters: None. 
44 7 Returns: Nothing. 
45 7 
46 7 Notes 
47 7 
48 7 : : 
49 7 ROUTINE write_user_routine_records : novalue 
50 7 = BEGIN 
51 7 
26 28 local 
5 3 status: Long. 
54 8 a_block: pe nter, 
55 28 obj: block(256,byte); 
56 28 bind 
i 
35 
60 
1 
8 
64 
65 


ssa .¢ 


⏑— 
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Bliss- 


566 

567 if .a_blockCvec_b_type] eglu block_k_command then if 

8 -a_block(cmd_b_handler] eqlu cmd_K_user then ( 

270 bind 

a symbol = .a_block + .a_block(cmd_w_image]+4: vector.,oytel; 
375 ! First we must generate a GSD record to declare the user _ 
574 30 ! routine address. The symbol for this address is stored in 
575 30 ! the command block at the offset specified by the image BRO 
278 3 ! (plus four for the reference longword). 

| 3 ! Set up the fixed portion of the record. 

580 30 objCobj$b_rectyp] = bj$c_gsd; 

581 30 gsd_sym(srf$b_qsdtyp] = gsd$c_sym; 

582 31 asd-syatsrt$b- atyo) = 05 

a3 1 gsd_sym(srf$w_flags] = 0; 

38? H ! Move the symbol into the record. 

aH $1 ch$move(1+.symbol(0],symbol(0], gsd_sym{srf$b_naming)); 
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! Write the record into the object file. Any error is fatal. 


op iect- rab repel _rbf = 9bj: 
bject_rabLrab$w_rsz + 4 + 1#,.symbol(0); 
status = S$put(rab=ob ect. rab); 
f not .status then 
eduSreport.. rms_error(msg(cdu$S_writeerr) ,object_rab); 


Now we have to write a TIR record with the following sequence 
afk. commands to store the user routine address in the command 
ock. 


' 
i 
i 
i 
i stack address of user routine reference longword 
i set location counter 

i stack address of user routine 

i store PIC data reference 


! Build the fixed portion of the commands. 


ob So_rgct ] = obj$c_tir; 
a 88 078" 0] = Tink wie pl: 


0) = 
$:0:$5,03_ A a_block = ,cduSgl table + .a_block{cmd_w_image); 


-8,0) = tirSc_ctl_setrb; 

4 87078703 = tir$c_sta_gbl; 

! Move the symbol in as the operand of the stack global. 
ch$move(1+.symbolC0],symbol(0J, obj[9,0,0,0)); 

! Finish the command sequence. 

obj(9 + 1+.symbol(0],0,8,0] = tir$c_sto_pidr; 

! Write the record into the object file. Any error is fatal. 
object_rabCrab$w_rsz] = 1 + 6 + 1 + 14#1#.symbol([0) + 1; 
status = Seottretcehtont, rab); 


if not .status then ‘ ‘ 
cduSreport_rms_error(msg(cdu$_writeerr) ,object_rab); 


oo 


); 
!' Move on to the next table block. 
a block = .a_block + .a_block(vec_w_size); 


OFFC 00000 WRITE_USER ROUTINE _RECORDS: 
-WORD Save Ro. RS R4.RS,R6,R7,RB_RO,R10,R11 : 1277 


— ee 


7 
OBJECT — 4 745: VAX-11 Bliss-32 V4.0-74 Page 24 
— 12-88-1986 $9:$3:39 DISKSVMSMASTER:CCDU.SRCIOBJECT.B32:1 -” as 
B 0000" CF 9E 0000 MOVAB CT_RAB+34, R11 ; 
E FFD 3 9 88 MOVAB strate) SP : 
999009 G D 9006 MOVL § CDUSGL_TABLE, A_BLOCK : 1292 
| 00000006 0 DO 00013 1$ MOVL CDUSGL TABLE, RO + 129 
10 ao C OOrA ADDL2 16(RO)> RO : 
56 51 0001 CMPL A BLOCK, RO : 
| 01 IF 90 } BL sSu 23 : 
02 02 46 g 0024 2$ CMPB (A_BLOCK), #2 + 1295 
04 Ne 0028 BNEQ $ : 
02 14 AG 91 OO0ZA CM O(A_BLOCK), #2 3 1296 
2 ; 00 3$ BEQL 538 : 
| 00 BRW $3 : 
57 1A Ab 3C 00033 48 MOVZWL 26(A BLOCK) R7 : 1299 
a 04 A746 . 000 MOVAB 4(R7SCA_BLOCK], RB : 
bE 0101 *t 8 003¢ MOVW #257, OBJ : 1308 
0¢ AE 94 00041 CLRB  s- GSD_SYm+1 + 1310 
03 AE B4 00044 CLRW  GSD~SYM+2 + 1311 
59 68 9A 00047 MOVZBL (RBY, RO + 1315 
59 D6 O004A INCL RO : 
0S AE 68 59 38 004¢ MOVC3 RO, (RB), GSD_SYM+4 : 
06 AB 6— 9E 00051 MOVAB OBJ, OBJECT _RAB+40 + 1319 
68 68 98 00055 MOVZ7BW (RBS, OBJECT RAB+34 + 1320 
6B 06 Ad 00058 ADDW2 #6, OBJECT_RAB+34 : 
DE AB 9F 00058 PUSHAB OBJECT_RAB + 1321 
000000006 00 01 FB 0005 CALLS #1, SYS$PUT : 
5A 50 DO 0006 MOVL RO. STATUS ; 
10 5A EB 00068 BLBS Tus, 5$ : 1322 
DE AB SF 00068 PUSHAB OBJECT : 132 
00111004 8F DD OO06E PUSHL #1118420 3 
000000006 00 2 FB 00074 CALLS #2 CDUSREPORT_RMS_ERROR : 
6£ 0602 8F 80 00078 S$: MOV) #1538, OBJ : 1336 
02 AE 94 00080 CLRB = OBJ+ : 133 
50 56 000000006 99 C3 00083 UBL 3 CDUSGL_TABLE, A_BLOCK, RO : 133 
03 AE 50 7 ¢i 00088 ADDL3 R7, RO, OBJ+$ : 
07 ‘AE 50 BF 9B 06090 mov ZB #86, 0B+7 : 134 
09 AE 68 59 28 00095 MOVC3 R9, (RB), OBJ+9 : 134 
50 68 9A 0009A MOVZBL (RB), RO : 134 
OA AE4O 1B 90 0009D MOVB #27, OBJ+10(RO) : 
68 68 98 0002 MOVZBW (R85, OBJECT RAB+34 : 1353 
68 0B AO OOOA ADDW2 #11, OBJECT RAB+34 ; 
DE AB 9F O000A8 PUSHAB OBJECT RAB + 1354 
000000006 90 01 FB OOOAB CALLS #1, SYS$PUT : 
A 0 D 0082 VL —- RO, ~STATUS : 
10 A 3 0B BS STATUS, 6$ : 1355 
DE AB 9F 00088 PUSHAB OBJEC RAB : 1356 
00111004 8F DD 000BB PUSHL #1118420 : 
000000006 00 02 FB 000C1 CALLS #2, CDUSREPORT_RMS_ERROR ; 
50 66 3¢ 000C8 6S: MOVZWL (A{BLOCK), RO : 1361 
56 9 0 000CB ADDL2 RO; A_BLOCK : 
FF42 31 OOOCE BR 1 > 1293 
4 00001 RET > 1366 


; Routine Size: 210 bytes, Routine Base: S$CODES + 0368 


— a 


7 
OB EET 1B-seo-1966 24:45:39 VALI! BLise-32 4.00743 page 25 


640 1367 1 !e4 
641 1 1! Description: This routine is responsible for writing the end-of-module 
ong 1 e 1! record at the end of the object file. ° 
64 1370 1! 
644 1371 1! Parameters: None. 
645 1 3 1! 
eee 1575 1°! Returns: Nothing. 
64 1374 1! 
648 1375 1 ! Notes: 
649 1376 1— 
650 1377 (1 
651 1378 1 ROUTINE write_eom_record : novalue 
$26 137 = BEGIN 
65 1380 
654 1381 local 
$32 i ; cone ba eras, byte); 
eom: bloc e 
657 13p2 r 
658 1385 ! Format the end-of-module record. 
659 1386 
660 1387 pees ped + rectves = obj$c_eom; 
$6) 1358 eom$b_comcod] = 0; 
os mt i: ! Write the record. ALl errors are fatal. 
665 1336 bject_rabCrab$l_rbf] = eom 
666 139 bject_rablrab$w_rsz) = 2; 
667 1394 status” = $put (rab=object_rab); 
668 1395 if not .status then 
83 1398 cdu$Sreport_rms_error(msg(cdu$_writeerr) ,object_rab); 
671 1398 return; 
67 1399 
67 1400 1 END; 
0004 00000 WRITE_EOM_RECORD: 
-@ORD Save R2 : 1378 
52 0000" CF X 0000 MOVAB OBJECT RAB, R2 3 
SE FFOO cE 9—€ 0000 MOVAB 326(SP), Sp ; 
6 0 Boe MOVW #5, EOM : 1387 
28. 4 6 6 OO0F MOVAB €EOM, OBJECT RAB+40 51 8 
22 4 os 8 80 0001 Vu #2, OBJECT_RAB+34 : 133 
001 PUSHL R 3: 1394 
000000006 00 rB 0019 CALLS #1, SYSSPUT 3 
OF 8 E 8 STATUS, 1$ Z 1333 
DD 000 PUSHL R2 : 1396 
001110D4 4 DD 000 PUSHL #1118420 3 
000000006 00 2 FB 8 CALLS #2, CDUSREPORT_RMS_ERROR 3 
04 000352 1$: ET : 1400 


: Routine Size: 51 bytes, Routine Rase: $CODE$S + 0430 


NN — — — — — — — —— — — — 


7 
JECT 18-56 1984 23:45: VAX-11 Bliss-32 V4.0-74 Pa 
—W — — $9:$3 39 DI SKSVMSMASTER-LCDU SRC SOBUECT.832;1 
674 1401 N 
3; 675 1402 0 ELUDOM 
eEXTRN LIBSSIGNAL 
; PSECT SUMMARY 
; Name Bytes Attributes 
3 SOWNS 1372 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: SPLITS NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; SCODES 1136 NOVEC.NOWRT. RD » EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
3 — Symbols ------- * Pages Processing 
3 File Total Loaded Percent Mapped Time 
: .$255$DUA28: CSYSLIBILIB.L32;1 18619 98 0 1000 00:01.9 
3 COMMAND QUALIFIERS 
H BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:OBJECT/OBJ=OBJ$:OBJECT MSRC$:O0BJECT/UPDATE=(ENHS$: OBJECT) 
3; Size: 1136 cgge + 1407 data bytes 
3; Run Time: 28. 
; Elapsed Time: 01:04.7 
3 Lines/CPU Min: 914 
3 Lovenes/ Pye: 29045 
3 I Used: 200 pages 
; — ation Complete 


— — 
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